home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / oper_sys / emerald / emrldsys.lha / Language / ExecTests / tcharacter.m < prev    next >
Encoding:
Text File  |  1990-08-31  |  884 b   |  27 lines
  1. import runtest from "RunTest"
  2.  
  3. const tcharacter <- object tcharacter
  4.   const myTest == runtest.create[stdin, stdout, "tcharacter"]
  5.   process
  6.     var i, j : Character
  7.     i <- '\^@'
  8.     myTest.check[i = '\^@', "i = '\\^@'"]
  9.     myTest.check[i == '\^@', "i == '\\^@'"]
  10.     i <- 'd'
  11.     j <- 'g'
  12.     myTest.check[i = 'd', "i = 'd'"]
  13.     myTest.check[i == 'd', "i == 'd'"]
  14.     myTest.check[i.ord = 100, "i.ord = 100"]
  15.     myTest.check[i.ord - 'a'.ord = 3, "i.ord - 'a'.ord = 3"]
  16.     myTest.check[j.ord - 'a'.ord = 6, "j.ord - 'a'.ord = 6"]
  17.     myTest.check[j > i, "j > i"]
  18.     myTest.check[i < j, "i < j"]
  19.     myTest.check[j >= i, "j >= i"]
  20.     myTest.check[i <= j, "i <= j"]
  21.     myTest.check[i != j, "i != j"]
  22.     myTest.check[i.asString = "d", "i.asString = \"d\""]
  23.     myTest.check[('\^@').asString = "\^@", "('\\^@').asString = \"\\^@\""]
  24.     myTest.done
  25.   end process
  26. end tcharacter
  27.